03100	THIS DESCRIBES A SERIES OF PROGRAMS WHICH MAY BE USED TO TAKE TV PICTURES
03200	AND THEN DISPLAY THEM OR PLOT THEM.  THEY MAY ALSO BE DISTORTED IN VARIOUS
03300	WAYS AND ALSO PUT INTO A FORM ACCEPTABLE TO THE DRAWING PROGRAM WHERE THEY
03400	MAY BE EDITED.
03500	
03600	******  TO TAKE A PICTURE *******
03700	
03800	RUN 'PLOTU.DMP'
03900	
04000	DEVICE NUMBER TO TYPE IS ALWAYS '-7'.   (THIS GETS THE DSK.)
04100	
04200	
04300	WHEN PROCESSING THE IMAGE THE FIRST NUMBER ASKED FOR SHOULD BE ABOUT .8,
04400	THE SECOND ABOUT 1.44 AND THE THIRD 3.
04500	
04600	GENERALLY IT IS A GOOD IDEA TO SAVE PROCESSED IMAGES WITH THE SAME NAME AS
04700	THE UNPROCESSED ONES PLUS THE LETTER 'P'.
04800	
04900	
05000	
10000	NEXT IS FROM TOP OF MANFRD.F4
10100	C DISPLAYS AND PLOTS TVIOF PROCESSED FILES.
10200
10300	C  TYPE <CR> TO REPEAT LAST FILE READ IN.
10400	C  TYPE  'X'  TO EXIT, TYPE  'SAVE'  TO SAVE FILE FOR DRAWING PROG.
10500	C  TYPE  'T'  TO TYPE LIST OF ALL YOUR CURRENT INPUT.
10600	C  TYPE 'FUNC NM'  WHERE NM = FUNC FILE NAME FOR DISTORTION FUNCTION.
10700	C  TYPE 'STEP N'  WHERE N = STEPS DISPLACEMENT FOR 2ND AND 3RD RUNS.
10800	C  TYPE 'CENTR F' WHERE F = CENTER FOR DISTORTION FUNC. (0 TO 1.0?)
10900	C  TYPE 'CLEAR' TO REINITIALIZE DISPLAY.
11000
11100	
11200	
11300	-------------- ALL END IN '.DO' -----------
11400	****** DO
11500	RU TPN↔V5P↔P 45 45 1↔90 100 67 100 0 97 0 100 1↔↔↔↔↔↔
11600	******* DOTVP ------  THIS MAKES SMALL FILES FOR TVD OR TVN.
11700	LOA P←/DUMP %DPIC1,PIC2,LOOK↔
11800	***** DOTVX
11900	LOA TPL←/DUMP %DMANFRD,RDBIG,PX,PLTMAN,LINEW,LOOK[MSS,LCS]↔
12000	****** DOTVZ
12100	LOA TVD←/DUMP %DMANFRD,RDSML,PX,PICY,LINEW,LOOK[MUS,LCS]↔
12200	***** DOTV  ---------- DOES THIS WORK???
12300	LOA %DTVIOF/FORT,SCAHEX/FORT,AEJ/FORT,PLOU/FORT,CLPLST/FORT,TVMAC/MAC,ASDACT/MAC↔
12400	****** DO2
12500	RU TPN↔FUNC FX↔CENTR -103↔V5P↔P 45 45 1↔90 100 67 100 0 97 0 100 1↔↔↔R↔X↔
12600	****** NPDDT
12700	LOA TPN←/DUMP MANFRD,RDBIG,PX,PLTMAN,LINEW,LOOK[MSS,LCS]↔
12800	***** NDDT
12900	LOA TVN←/DUMP MANFRD,RDSML,PX,PICY,LINEW,LOOK[MUS,LCS]↔